#! /usr/bin/perl -w

use strict;

# strip HTTP headers
while (<STDIN>) {
    chomp;
    last if $_ =~ '^[\r]?$';
}

while (<STDIN>) {
    print;
}
